Unidad 3: Opciones de despliegue

class: center, middle, inverse, title-slide

# Unidad 3: Opciones de despliegue
## Curso: Análisis espacial, web-mapping y <br>aplicaciones web con R Shiny<br>
### MSc. José A. Lastra
### Laboratorio Geo-Información y Percepción Remota
### 03/12/2021

---

background-image: url(data:image/png;base64,#logo_labgrs_color.png)
background-position: center
background-size:40%

---
Librerías utilizadas en esta sesión

```r
library(shiny)
library(shinyjs)
library(leaflet)
library(tidyverse)
library(sf)
library(raster)
library(bslib)
library(ggfortify)
library(plotly)
library(shinyalert)
```

---
class: inverse, center, middle

# INTRODUCCIÓN

---
#Metas de hoy

--
- Últimos arreglos a nuestra aplicación
- Desplegar nuestra aplicación en la web
- Dudas y consultas

--
.center[
![:scale 60%](data:image/png;base64,#https://raw.githubusercontent.com/allisonhorst/stats-illustrations/master/other-stats-artwork/debugging.jpg)
]
.center[.footnote[© Allison Horst]]

---
Seguiremos empleando nuestra aplicación de la semana anterior

.center[![:scale 95%](data:image/png;base64,#app1.png)]

---
#bslib

--
- Paquete de R que entrega herramientas para la personalización de temas Bootstrap de forma directa en R.

--
- Compatible con Shiny y R Markdown

```r
install.packages("bslib")
```

--
Reemplace la librería *shinythemes* con *bslib* y en el argumento **theme** de la aplicación escriba los siguientes argumentos:

```r
theme = bs_theme(bootswatch = "flatly")
```

---
# Personalización

--
- Además de poder elegir un tema predefinido, podemos emplear una personalización un poco más avanzada de nuestras aplicaciones

```r
theme = bs_theme(bg = "rgb(255, 251, 251)", 
                 fg = "rgb(38, 38, 40)",
                 secondary = "#A05959", 
                 font_scale = NULL, 
                 `enable-gradients` = TRUE,
                 bootswatch = "lux")
```

---
#Compartiendo nuestras app

**Métodos locales**

--
- Compartir el script y los datos: Esta es la forma más convencional de compartir una app y simplemente consiste en compartir los archivos que hacen funcionar nuestra aplicación para que los usuarios la puedan correr localmente.

--
- Compartir URL: otra forma es zippear la aplicación y alojarla en algún sitio (GoogleDrive, Dropbox u otro) y compartir la url para que los usuarios puedan acceder al archivo de la siguiente manera:

```r
runUrl("<url al zip>")
```

---
#Github

--
De manera complementaria uno puede alojar sus aplicaciones en GitHub o en Gist y puede dar acceso a las mismas considerando el nombre de repositorio y la app para que los usuarios puedan acceder.

```r
runGitHub( "oceDataApp", "JoseLastra")
```

---
class: middle, center

![:scale 95%](data:image/png;base64,#app2.png)
---
#En la web

Una forma de compartir es simplemente alojar nuestra aplicación en un servicio y poder ponerla a disposición en un servidor externo o propio.Existen varias opciones donde las más comunes son el uso de:

--
- [Shinyapps.io](https://www.shinyapps.io/): Una de las formas más fáciles de subir trabajando directamente desde RStudio.

--
- [Shiny Server](https://rstudio.com/products/shiny/shiny-server/): Es un programa complementario que permite configurar un servidor para el alojamiento y despliegue de aplicaciones. Necesitará un servidor Linux con Ubuntu 12.04 o superior (64 bits) y CentOS / RHEL 5 (64 bits) para poder operar Shiny Server.

--
- [RStudio Connect](https://rstudio.com/products/connect/): es una plataforma de publicación para el trabajo que crean sus equipos en R y Python. Contempla no solo shiny apps sino que también otros productos (informes de R Markdown, Plumber APIs, dashboards, Jupyter Notebooks, contenido interactivo de Python).

*Estas alternativas están contenidas en entornos de RStudio*.

--
**Importante**: Hay más alternativas de despliegue de aplicaciones, por ejemplo: empaquetar la aplicación, usar contenedores de [docker](https://www.docker.com/), [shiny Proxy](https://www.shinyproxy.io/), [AWS](https://aws.amazon.com), etc.

---
#Desplegando en Shinyapps.io

--
- Antes de comenzar es importante disponer de una cuenta gratuita en [Shinyapps.io](https://www.shinyapps.io/)

--
- Con nuestra cuenta activa, debemos instalar la librería rsconnect que nos permitirá subir aplicaciones directamente desde RStudio.

```r
install.packages('rsconnect')
```

--
- Una vez instalada, la cargaremos en nuestro entorno mediante la función `library(rsconnect)`.

--
- Ahora, iremos a nuestra cuenta de shinyapps.io y en nuestro perfil debemos ubicar la opción Tokens donde encontraremos una ventana con varios códigos para nuestra cuenta.

---
class: middle, center
![:scale 95%](data:image/png;base64,#app3.png)
---

-
Aquí, oprimiremos la opción *Show secret* para que nos muestre los valores necesarios y los copiaremos en nuestro portapapeles.

--
.center[
![:scale 90%](data:image/png;base64,#app4.png)
]

--
- Para conectar nuestra cuenta, desplegaremos nuestra aplicación (Run App) y buscaremos el botón de publicación.

.center[
![:scale 90%](data:image/png;base64,#app6.png)
]

---

--
- Si disponemos de una cuenta ya conectada, por defecto nos dará la opción de publicarla en esa cuenta pero sino hemos vinculado nada debemos proceder a conectarla usando la información que pegamos desde los *Tokens*.

--
.center[
![:scale 50%](data:image/png;base64,#app7.png)
]

---
.center[
![:scale 50%](data:image/png;base64,#app9.png)
]

--
- Con la cuenta conectada, debemos seleccionar los archivos a montar sobre nuestro sitio, el título de la aplicación y ver la cuenta de conexión (en caso de disponer de varias).

---
class: middle, center
![:scale 50%](data:image/png;base64,#app10.png)

---
class: middle, center
![:scale 95%](data:image/png;base64,#app11.png)

---
class: inverse,center, middle

# ¿PREGUNTAS?